help_view.asp 星梦奇缘交友网 1 - ASP源码程序

www.gusucode.com > 星梦奇缘交友网 1 > 星梦奇缘交友网 1.0源码程序/love/help_view.asp
    <!--#include file=conn.asp-->
<!--#include file=config.asp-->
<!--#include file=const.asp-->
<!--#include file=char.asp-->
<%
 '=========================================================
' File: help_view.asp
' Version:3.0
' Date: 2005-8-21
' Script Written by xmrxw
'=========================================================
' Copyright (C) 2004,2005 920520.com All rights reserved.
' Web: http://www.920520.com,http://www.xmzxw.com
' Email: info@mssky.com,super@mssky.com
' QQ：10689579　Msn：zdlmicr@hotmail.com
'=========================================================
response.buffer=true
	dim id,Title,Content
		id=checkStr(Request("id"))
	if id="" or not isnumeric(id) then
		Errmsg=Errmsg+"<br>"+"<li>参数错误！</li>"
		Founderr=true
		response.end
	end if
sql="select title,content from [Ms_help] where id="&cint(id)&""
set rs=conn.execute(sql)
if not (rs.eof and rs.bof) then
Title=rs(0)
Content=rs(1)
else
		Errmsg=Errmsg+"<br>"+"<li>参数错误！</li>"
		Founderr=true
end if
rs.close
if founderr=true then
	call Mslove_error()
	else
	call main()
end if
sub main()
stats=Title%>
<html>
<head>
<title><%=Title%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body leftmargin="0" topmargin="0">
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" class=tableborder1>
  <tr> 
    <td class=tablebody1><%=Content%></td>
  </tr>
</table>
<%end sub
call activeonline()
call footer()%>